// TOWN SPECIAL ENCOUNTERS
//    Town 24: Tower of Magi

//12 4
beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

	set_name(2403,"Infinite Sight");
	change_max_health(2403,100);
	set_boss_level(2403,1);

	set_name(2443,"Maddened Drake");
	set_boss_level(2443,1);

	set_level(30001,12);

	set_name(30002,"Trash Burner");
	
	set_name(30004,"Surface Immigrant");
	
//	add_range_to_group(,,groupn);

	set_personality_name(480,"Mahdavi");
	set_personality_name(481,"Brigid");
	set_personality_name(482,"Menlo");
	set_personality_name(483,"Linda");
	set_personality_name(484,"Vidrain");
	set_personality_name(485,"Kyanan");
	set_personality_name(486,"Vincent");
	set_personality_name(487,"Clarisse");
	set_personality_name(488,"Carrie");
	set_personality_name(489,"Apprentice");
	set_personality_name(491,"Conruc");
	set_personality_name(435,"Solberg");
	set_personality_name(436,"'X'");
	set_personality_name(430,"Cheeseball");
	set_personality_name(487,"Mother Clarisse");
	set_personality_name(809,"Brantford");

	set_boss_level(2434,1);
	set_attack_bonus(2434,50);
	
	set_crime_tolerance(max_crime);

	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2434,"Welcome, explorer.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2434,"I am of the Triad.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2434,"We allowed you to return.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2434,"So many visitors.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2434,"We depend on portals.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2434,"Some research is dangerous.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2406,"I collect recipes.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2406,"So much to learn up above.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2406,"I would study all nature.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2410,"I am but a sage.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2410,"Little I can do for you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2410,"I've found a few things.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2410,"I am no warrior.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2445,"I have learned.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2445,"We will see.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2445,"Yes.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2445,"Soon.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2445,"We will all be saved.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2445,"It will be time.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2409,"Portal is above.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2409,"Visitors' quarters are north.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2409,"Don't bug the mages.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2409,"I can guide you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2452,"Class is about to start.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2452,"Time for a lecture.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2452,"Always be wary.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2452,"Much is happening.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2430,"(Chop. Chop.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2430,"(Mince. Mince.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2430,"Bah! Too bitter!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2430,"Needs more sweetness.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2441,"Now what?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2441,"I'm allowed to talk.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2441,"This place is dangerous.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2441,"Shhh! Portal is upstairs.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2401,"Don't bother with me.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2401,"I don't know.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2401,"I just keep things running.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2401,"I used to do magic stuff.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2419,"Hi!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2419,"You're neat!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2419,"Look! A bug!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2419,"(Pounce!) Chomp. Chomp.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2402,"Another young warrior.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2402,"Welcome!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2402,"I can help you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2402,"Pardon the mess.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2405,"...");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2405,"....");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2405,"???");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2405,"!!!!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2407,"Stop and rest.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2407,"This place is for learning.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2407,"I can teach you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2407,"You are welcome.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2414,"Meow.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2414,"Feed me.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2414,"Stop staring.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2414,"I have my pride.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2455 + get_ran(1,0,4),"I'm scared.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2455 + get_ran(1,0,4),"Is it time yet?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2455 + get_ran(1,0,4),"I'm ready.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2455 + get_ran(1,0,4),"Will the portal kill me?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2455 + get_ran(1,0,4),"What is that buzzing?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2435,"Welcome to my shop!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2435,"Excuse the clutter.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(2435,"I buy and sell.");

break;

beginstate 10;
	if ((char_ok(2453)) && (get_ran(1,0,100) < 50))
		erase_char(2453);
		else if ((char_ok(2453) == FALSE) && (get_ran(1,0,100) < 50)) 
			spawn_creature(2453);
	if ((char_ok(2456)) && (get_ran(1,0,100) < 50))
		erase_char(2456);
		else if ((char_ok(2456) == FALSE) && (get_ran(1,0,100) < 50)) 
			spawn_creature(2456);
	if ((char_ok(2455)) && (get_ran(1,0,100) < 50))
		erase_char(2455);
		else if ((char_ok(2455) == FALSE) && (get_ran(1,0,100) < 50)) 
			spawn_creature(2455);
	if ((char_ok(2457)) && (get_ran(1,0,100) < 50))
		erase_char(2457);
		else if ((char_ok(2457) == FALSE) && (get_ran(1,0,100) < 50)) 
			spawn_creature(2457);
	if ((char_ok(2458)) && (get_ran(1,0,100) < 50))
		erase_char(2458);
		else if ((char_ok(2458) == FALSE) && (get_ran(1,0,100) < 50)) 
			spawn_creature(2458);
	if ((char_ok(2459)) && (get_ran(1,0,100) < 50))
		erase_char(2459);
		else if ((char_ok(2459) == FALSE) && (get_ran(1,0,100) < 50)) 
			spawn_creature(2459);

	set_name(2453,"Surface Immigrant");
	set_name(2456,"Surface Immigrant");
	set_name(2455,"Surface Immigrant");
	set_name(2457,"Surface Immigrant");
	set_name(2458,"Surface Immigrant");
	set_name(2459,"Surface Immigrant");
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13; 
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

